Software of the Month Club (Business) 1997 July/Software of the Month Club - Business (Volume 239) (July 1997).iso/pc/code/e.dxr/00010_#E05 - Free Power Pellet dispenser.ls

Text File | 1996-02-15 | 548 b | 17 lines

global gEnvironmentSound, gOBJECTSE, gObjects, gStates, NULLrect, gHotRects, gCursorlist, gWorld, sQTSPRITE, sQTCharSprite

on DopelletBtn
  setaProp(getaProp(gStates, #Conditions), #Coast, #true)
  setaProp(getaProp(gObjects, #CarGasGauge), #fuelLevel, 2)
  changeGasGauge(3, #false)
  set initList to [#goToG22, #goToF01, #goToH01]
  set killList to [#lookAtPelletDispenser]
  changeHotSpots(initList, killList, #false)
end

on doBackToForkView
  set lastKey to string(getaProp(gLastKeyList, #RefName))
  Jumptokey(#E06H)
  CursorandUpdate()
end